0 IFA=0THENA=1:LOAD"RHEA MSC",8,1
1 POKE808,225:POKE53280,11:POKE53281,11:PRINT"[147][142]":X=-1:X=-1:Z=11:GOSUB2:X=-1:Z=9:GOSUB2:X=-1:Z=6:GOSUB2:X=-1:Z=5:GOSUB2:X=-1:Z=3:GOSUB2:X=-1:Z=0:GOSUB2:GOSUB4:GOTO5
2 X=X+1:GOSUB4:PRINT""TAB(X)"[180]":PRINTTAB(X)"[180]":PRINTTAB(X)"[180]":GOSUB4:PRINT""TAB(X)"[212]":PRINTTAB(X)"[212]":PRINTTAB(X)"[212]":GOSUB4:PRINT""TAB(X)"[194]":PRINTTAB(X)"[194]":PRINTTAB(X)"[194]":GOSUB4:IFX=ZTHENRETURN
3 PRINT""TAB(X)"[200]":PRINTTAB(X)"[200]":PRINTTAB(X)"[200]":GOSUB4:PRINT""TAB(X)"[217]":PRINTTAB(X)"[217]":PRINTTAB(X)"[217]":GOSUB4:PRINT""TAB(X)"[170]":PRINTTAB(X)"[170]":PRINTTAB(X)"[170]":PRINT""TAB(X)" ":PRINTTAB(X)" ":PRINTTAB(X)" ":GOTO2
4 FORO=1TO10:NEXTO:RETURN
5 PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[198]":GOSUB4:PRINT"[210]":GOSUB4:PRINT"[175]":GOSUB4:PRINT" ":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4
6 PRINT"[198]":GOSUB4:PRINT"[210]":GOSUB4:PRINT"[175]":GOSUB4:PRINT" ":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[198]":GOSUB4:PRINT"[210]":GOSUB4:PRINT"[175]":GOSUB4:PRINT" ":GOSUB4:PRINT"[183]":GOSUB4
7 PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[198]":GOSUB4:PRINT"[210]":GOSUB4:PRINT"[175]":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[198]":GOSUB4:PRINT"[210]":GOSUB4:PRINT"[175]":GOSUB4
8 PRINT" ":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[198]":GOSUB4:PRINT"[210]":GOSUB4:PRINT"[175]":GOSUB4
9 PRINT" ":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[197]":GOSUB4:PRINT"[196]":GOSUB4:PRINT"[195]":GOSUB4:PRINT"[183]":GOSUB4:PRINT"[205]":PRINT"[206]":PRINT"[205]":POKE56325,0:PRINT"","(W) 1997 BY JTR":GOSUB99:POKE56325,56:FORX=1TO500:NEXT
10 PRINT"(A)NLEITUNG":PRINT"(S)PIEL BEGINNEN":PRINT"WIE LAUTET DEINE WAHL?";
11 GETA$:IFA$=""THEN11
12 IFA$="A"THEN15
13 IFA$="S"THEN23
14 GOTO11
15 PRINT"[147]            RHEA - ANLEITUNG            ":PRINT"IM JAHRE 2367 BEGANN DER KRIEG ZWISCHEN":PRINT"DER ERDE UND IHREN EHEMALIGEN INTERPLA-":PRINT"NETARISCHEN KOLONIEN AUF DEN SATURNTRA-":PRINT"BANTEN. AUF RHEA, TITAN UND JAPETUS WUR-";
16 PRINT"DEN NAEMLICH TIEF IM GESTEIN GROSSE MEN-";:PRINT"GEN AN GEBUNDENEN SAUERSTOFF ENTDECKT.":PRINT"DIE ERDE, DIE NUR NOCH KNAPPE RESSOURCEN";:PRINT"VON DER DOCH SO WICHTIGEN ATEMLUFT BE-":PRINT"SASS, VERSUCHTE MIT ALLEN MITTELN HERR"
17 PRINT"UEBER DIE DREI ABTRUENNIGEN SATELLITEN":PRINT"ZU WERDEN. DIE KRIEG ENTSCHIED SICH JE-":PRINT"DOCH ZUGUNSTEN DER VERTEIDIGER.":PRINT"RHEA, TITAN UND JAPETUS GRUENDETEN EINE":PRINT"KONFOEDERATION, DIE DAS GESAMTE SATURN-"
18 PRINT"AREAL EINBESCHLOSS. 18 JAHRE SPAETER GE-";:PRINT"SCHAH DAS UNGLUECK: EIN METEOR SCHLUG":PRINT"AUF RHEA EIN, ZERSTOERTE EINEN GROSSTEIL";:PRINT"DER FABRIKANLAGEN UND BRACHTE TAUSENDEN":PRINT"VON KOLONIALISTEN DEN TOD.":GOSUB96
19 PRINT"[147]            RHEA - ANLEITUNG           [146]":PRINT"SO WURDE DER EINST REICHE KONFOEDERA-":PRINT"TIONSPARTNER ZU EINEM ORT DER ARMUT UND":PRINT"ANARCHIE. DA EIN WIRTSCHAFTLICHER UNTER-";:PRINT"GANG RHEAS SICH SCHAEDLICH AUF DIE GE-"
20 PRINT"SAMTE SATURN-KONFOEDERATION AUSWIRKEN":PRINT"WUERDE, SCHICKT MAN DICH - EINEN GEBUER-";:PRINT"TIGEN TITANIER - ZU RHEA, DAMIT DU ALS":PRINT"PRAESIDENT DEN WIEDERAUFBAU DER PRODUK-":PRINT"TIONSANLAGEN ORGANISIERST.":PRINT"MAN GEWAEHRT DIR ZEHN PERIODEN (DAS SIND";
21 PRINT"CA. VIEREINHALB IRDISCHE JAHRE) AN ZEIT,";:PRINT"UM AUS RHEA WIEDER DEN WICHTIGEN WIRT-":PRINT"SCHAFTSFAKTOR DER KONFOEDERATION ZU MA-":PRINT"CHEN, DER ER EINMAL WAR.":PRINT"SOLLTEST DU ES IN DER ZEIT NICHT SCHAF-":PRINT"FEN, ODER SOLLTEN KONTRAREVOLUTIONAERE"
22 PRINT"REBELLEN DEINE HERRSCHAFT STUERZEN, SO":PRINT"WIRD MAN EINEN NEUEN PRAESIDENTEN WAEH-":PRINT"LEN UND DICH WIEDER NACH TITAN SCHICKEN.":GOSUB96
23 SYS32768:POKE53280,0:POKE53281,0
24 PRINT"[147][146]EIN NEUES SPIEL BEGINNT...":FORX=1TO1500:NEXT:L1$="[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]":L2$="[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":L3$="[194]                    [194]                 [194]"
25 L4$="[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":P=5000:M=2000000:F=5000:T=10:Z$=CHR$(34):GOSUB84:T=11:GOTO27
26 GOSUB84
27 IFT<2THEN75
28 PRINT"[147]     DER BEGINN EINER NEUEN PERIODE     [146]":T=T-1:X=-1:PRINT"WIEVIEL VON DEM BUDGET FUEHREN SIE IHREM";
29 INPUT"[145]EIGENEM VERMOEGEN ZU";X:IFX<0THEN29
30 M=M-X:R=R+X:PRINT"IHR PRIVATVERMOEGEN BELAEUFT SICH JETZT ALSO AUF"R"CREDITS.":GOSUB96:IFR>=((RND(8)*3)-1)*MTHENGOSUB88
31 PRINT"[147]       BERICHT AUS DEN WERKHALLEN       ":A=INT(RND(3)*3)+1:IFA=1THENPRINT"ES WURDEN MEHR SAUERSTOFFEINHEITEN HER-"
32 IFA=1THENPRINT"GESTELLT ALS ERWARTET.":GOTO34
33 PRINT"DIE MENGE DER HERGESTELLTEN SAUERSTOFF-":PRINT"EINHEITEN IST ZUFRIEDENSTELLEND."
34 IFA=1THENF=F+2000:P=P+5000:M=M+10000
35 IFA=2THENX=-1:PRINT"ES WERDEN DRINGEND RAUMTRANSPORTER BE-"
36 IFA=2THENPRINT"NOETIGT. KOSTEN: 10000 CREDITS PRO EIN-"
37 IFA=2THENPRINT"HEIT. WIEVIELE TRANSPORTER WOLLEN SIE"
38 IFA=2THENINPUT"[145]ANSCHAFFEN";X:F=500*X:IFX<0THEN38
39 IFA=2ANDX>0THENM=M-(X*10000)
40 IFA=3THENPRINT"DIE REBELLEN SABOTIEREN IHRE ANLAGEN.":GOSUB67
41 IFP<1000THENGOSUB88
42 GOSUB96:PRINT"[147]":GOSUB84:PRINT"[147]          STAND DER RESSOURCEN          ":X=INT(RND(3)*3)+1:IFX=1THENGOSUB49
43 IFX=2THENGOSUB50
44 IFX=3THENGOSUB53
45 GOSUB96:GOTO26
46 PRINT"[147]      SIE HABEN DAS SPIEL GEWONNEN      ":PRINT"DIE SAUERSTOFFPRODUKTION IST ERGIEBIGER":PRINT"DENN JE. SIE SIND VON TITAN NICHT MEHR":PRINT"ABHAENGIG. SIE VERSORGEN NUN ENCELADUS,":PRINT"THETYS UND DIONE MIT IHREN ROHSTOFFEN."
47 PRINT"SIE HABEN RHEAS WIRTSCHAFTSKAPITAL SOWIE";:PRINT"IHR EIGENES ENORM GESTEIGERT. AUSSERDEM":PRINT"HABEN SIE DIE URSPRUENGLICHE BEVOELKE-":PRINT"RUNGSDICHTE WIEDER HERGESTELLT.":PRINT"OB DIESES ERFOLGES ERNENNT MAN SIE ZUM"
48 PRINT"PRAESIDENTEN AUF LEBENSZEIT. HERZLICHEN":PRINT"GLUECKWUNSCH!":GOSUB96:RUN24
49 PRINT"ES IST NOCH GENUEGEND SAUERSTOFF VORHAN-";:PRINT"DEN.":P=P+2000:M=M+100000:RETURN
50 U1=INT((5*(10^5)*RND(1))+5*(10^5)):PRINT"ES WIRD EIN UEBERSCHUSS AN SAUERSTOFF":PRINT"PRODUZIERT, DEN SIE NACH DIONE EXPORTIE-";:PRINT"REN. DAS BRINGT IHNEN"U1"CREDITS":X=-1:PRINT"EIN. WIEVIEL PROZENT DAVON WOLLEN SIE"
51 INPUT"[145]SICH ANEIGNEN";X:IFX<0ORX>100THEN51
52 M=M+INT(U1-(U1*X/100)):R=R+INT(U1*X/100):RETURN
53 PRINT"EIN LECK IM TANKLAGER LIESS FAST DEN GE-";:PRINT"SAMTEN SAUERSTOFF ENTWEICHEN. WAS GEDEN-";:PRINT"KEN SIE ZU TUN?":PRINT"(A) DIE REPARATUR FINANZIEREN":PRINT"(B) VERSUCHEN, MIT DEN RESERVEN AUSZU-":PRINT"    KOMMEN":PRINT"(C) SAUERSTOFF VON TITAN IMPORTIEREN"
54 GETC$:IFC$=""THEN54
55 IFC$<>"A"ANDC$<>"B"ANDC$<>"C"THEN54
56 IFC$="A"THENM=M-INT(20000*RND(8)):P=P-INT(100*RND(8))
57 IFC$="B"THENP=P-INT(2000*RND(8)):M=M-INT(RND(8)*10000)
58 IFC$="C"THENM=M-INT(RND(3)*400000)
59 IFM<0THENM=0:GOSUB88
60 IFP<100THENP=100
61 RETURN
62 M=M-INT((10^5)*RND(1))+10^5:IFI>=P*.8THENPRINT"SIE SIND GESTUERZT WORDEN. SIE HABEN DAS";
63 IFI>=P*.8THENPRINT"SPIEL LEIDER VERLOREN.":GOSUB96:RUN24
64 IFRND(8)<.7THENPRINT"SIE BEHAUPTEN IHRE MACHT.":GOSUB96:RETURN
65 PRINT"AUFGRUND IHRER TYRANNISCHEN REGIERUNG":PRINT"WERDEN SIE VON RHEA VERBANNT.":GOSUB96:RUN24:INPUTX:IFX=0THENGOSUB88
66 M=M-X*10000:RETURN
67 PRINT"WAS GEDENKEN SIE ZU TUN?":PRINT"(A) DIE SICHERHEITSKRAEFTE VERSTAERKEN":PRINT"(B) DEN SAUERSTOFF FUER VERDAECHTIGE":PRINT"    RATIONIEREN":PRINT"(C) DIE ANGELEGENHEIT IGNORIEREN"
68 GETA$:IFA$=""THEN68
69 IFA$<>"A"ANDA$<>"B"ANDA$<>"C"THEN68
70 IFA$="A"THENI=I-INT(1000*RND(2)):M=M-INT((10^4*RND(1))+10^4):IFI<1THENI=0
71 IFA$="C"THENF=F-INT(RND(4)*3000)
72 IFA$="B"THENI=I+INT(500*RND(7))
73 IFF<1THENF=0
74 RETURN
75 PRINT"[147]    IHRE ZEIT IST LEIDER ABGELAUFEN!    ":PRINT"SIE KONNTEN IHR VOLK LEIDER NICHT ZU-":PRINT"FRIEDENSTELLEN. ES WIRD EIN NEUER PRAE-":PRINT"SIDENT GEWAEHLT.":GOSUB96:RUN24
76 PRINT"[147]     DER SAUERSTOFF GEHT ZUR NEIGE!     ":PRINT"WAS SOLLEN DEINE KOLONIALISTEN JETZT":PRINT"BLOSS TUN?":PRINT"(A) DIE LUFT ANHALTEN":PRINT"(B) DU IMPORTIERST SAUERSTOFF VON RHEA":PRINT"(C) DU STEIGERST DIE SAUERSTOFFPRODUK-":PRINT"    TION"
77 GETB$:IFB$=""THEN77
78 IFB$<>"A"ANDB$<>"B"ANDB$<>"C"THEN77
79 IFB$="A"THENGOSUB88
80 IFB$="B"THENM=M-P*250
81 IFB$="C"THENM=M-P*200:P=INT(P*.95)
82 IFM<0THENM=0:GOSUB88
83 RETURN
84 PRINT"[147]   DER LAGEBERICHT FUER DIESE PERIODE   [146]":PRINT""L1$;:FORX5=1TO5:PRINTL3$;L2$;:NEXT:PRINTL3$;L4$:FORX5=1TO150:NEXT:PRINT"KOLONIALISTEN",""P:PRINT"BUDGET",,""M"CR.":PRINT"EIGENES VERMOEGEN",""R"CR.":PRINT"SAUERSTOFFEINHEITEN"F
85 PRINT"REGIERUNGSZEIT NOCH"T"PERIODEN":PRINT"REBELLEN",,""I:GOSUB96:IFP=>8000ANDM=>8000000ANDF>8000ANDR>1500000THEN46
86 IFF<1THEN76
87 RETURN
88 PRINT"[147]      EINE REBELLION BAHNT SICH AN      ":PRINT"WAS WOLLEN SIE UNTERNEHMEN?":PRINT"(A) RHEA VERLASSEN UND INS EXIL GEHEN":PRINT"(B) DEN AUFSAESSIGEN IHR PRIVATES VER-":PRINT"    MOEGEN UEBERLASSEN":PRINT"(C) WIDERSTAND LEISTEN"
89 GETD$:IFD$=""THEN89
90 IFD$<>"A"ANDD$<>"B"ANDD$<>"C"THEN89
91 IFD$="A"THEN95
92 IFD$="B"THENM=M+R:R=0
93 IFD$="C"THENGOSUB62
94 I=I+INT(RND(8)*P/5):RETURN
95 PRINT"SIE KOENNEN ENTKOMMEN, HABEN DAS SPIEL  JEDOCH VERLOREN.":GOSUB96:RUN24
96 PRINT"":PRINT"        BITTE LEERTASTE DRUECKEN       ";:POKE2023,160
97 GETAO$:IFAO$<>" "THEN97
98 RETURN
99 PRINT"DIESES SPIEL WIRD VERTRIEBEN VON":PRINT"B-SOFT":PRINT"MIKE WITSCHI UND MAIK HOLSTEIN":PRINT"HENNINGSTR. 13":PRINT"21337 LUENEBURG":RETURN